R Notebook

Run Twitter Scrape

pacman::p_load(tidyverse, wdman, jsonlite, rvest, xml2, RSelenium, here, crayon, here)
source("helper_functions.R")
options(scipen = 999)
todo_ids_ar <- get(load(here("data", "tw", "tweet_ids",  "tweet_ids.Rdata")))
todo_ids_ar <- todo_ids_ar %>%
  filter(!duplicated(todo_ids_ar))
dat <- todo_ids_ar %>% 
  mutate(tweet_id = as.factor(tweet_id))
todo_ids_ar[26,]

Main Function

library(RSelenium)
port <- sample(4000L:5000L, 1)
rD <- rsDriver(verbose = FALSE, port = port)